home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Misc. / RabbitLore™ / background_3286.txt < prev    next >
Text File  |  1990-07-18  |  3KB  |  146 lines
  1. -- background: 3286 from stack: in
  2. -- bmap block id: 3548
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   hide menubar
  9. end openBackground
  10.  
  11. on closeBackground
  12.   show menubar
  13. end closeBackground
  14.  
  15.  
  16. -- part 3 (button)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=468 top=316 right=338 bottom=495
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 16560 / 16560
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Next
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   go next
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 4 (button)
  36. -- low flags: 00
  37. -- high flags: 0000
  38. -- rect: left=427 top=316 right=338 bottom=454
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 15420 / 15420
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Prev
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   go prev
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 6 (field)
  55. -- low flags: 01
  56. -- high flags: 2007
  57. -- rect: left=0 top=19 right=342 bottom=152
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: about
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   if the commandKey is down then
  69.     set lockText of me to not the lockText of me
  70.     exit mouseUp
  71.   end if
  72.   -- A script to 'fake' an information text block.
  73.   -- requires a topic list field and the text field.
  74.   -- click on a topic and the script will find it in the text field
  75.   -- and scroll it to the top.
  76.   -- Copyright ¬©1990 by David G. Davidson
  77.  
  78.   set the lockText of me to false
  79.   click at the clickLoc
  80.   click at the clickLoc
  81.   Select the selectedLine
  82.   set the lockText of me to true
  83.  
  84.   if the selection is empty then exit mouseUp
  85.  
  86.   if the selection is "Show The Script" then  -- show the script
  87.     click at 0,0 -- remove the selection RECT
  88.     edit the script of me
  89.     exit mouseUp
  90.   end if
  91.  
  92.   if the selection is "Go Home" then
  93.     set cursor to watch
  94.     lock screen
  95.     set the scroll of me to 0
  96.     go last card
  97.     show cd fld "click"
  98.     unlock screen
  99.     wait until the mouse is down
  100.     hide cd fld "click"
  101.     go home
  102.   end if
  103.  
  104.   lock screen -- find the info text
  105.   find whole selection &":" in field "Information"
  106.   click at 0,0 -- this erases the find RECT before the user can see it
  107.   unlock screen
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 7 (field)
  113. -- low flags: 01
  114. -- high flags: 2007
  115. -- rect: left=135 top=19 right=342 bottom=411
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 2
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Information
  124.  
  125.  
  126. -- part 8 (button)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=411 top=34 right=150 bottom=511
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: 
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   show card field copyright
  141.   wait 2 seconds
  142.   hide card field copyright
  143.   -- go rabbits
  144. end mouseUp
  145.  
  146.